home *** CD-ROM | disk | FTP | other *** search
- @ECHO OFF
- REM - DIRDEL MAY BE USED FREE OF ANY CHARGE
- REM - DIRDEL is Copyrighted, 1992 by Dixie Aire Computer Services, Inc.
- REM - All rights are reserved
-
- IF .%1 == .a: GOTO DOIT
- IF .%1 == .A: GOTO DOIT
- IF .%1 == .b: GOTO DOIT
- IF .%1 == .B: GOTO DOIT
- IF .%1 == .c: GOTO BLONDE
- IF .%1 == .C: GOTO BLONDE
- IF .%1 == .d: GOTO BLONDE
- IF .%1 == .D: GOTO BLONDE
- IF .%1 == .e: GOTO BLONDE
- IF .%1 == .E: GOTO BLONDE
- GOTO ERROR
-
- :DOIT
- dir %1
- echo ˇ
- tbu -c _d "Erase %1 ? [Y/N]" yn
- if "%_D%" == "N" GOTO END
- ECHO Y|DEL %1\*.* >nul
- GOTO END
-
- :BLONDE
- echo
- ECHO Come on Bimbo! .. WAKE UP! You just tried to erase the hard drive!
- echo
-
- :ERROR
- ECHO Instructions: DIRDEL will erase complete diskettes after listing the files.
- ECHO ˇ
- ECHO DIRDEL A: will erase all files on the floppy in A:.
- ECHO - Confirmation is used! -
- ECHO ˇ
- :END
- free %1